home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / programming / e / lsestuff / except_print.e < prev    next >
Text File  |  1999-11-29  |  931b  |  52 lines
  1. OPT MODULE
  2.  
  3. EXPORT PROC print_exception(exception, exceptioninfo=NIL)
  4. SELECT exception
  5. ->general...
  6. CASE "LIB"
  7.    WriteF('library')
  8. CASE "DEV"
  9.    WriteF('device')
  10. CASE "WIN"
  11.    WriteF('window')
  12. CASE "ARGS"
  13.    WriteF('args')
  14. CASE "SCR"
  15.    WriteF('screen')
  16. CASE "OPEN"
  17.    WriteF('open file')
  18. CASE "PORT"
  19.    WriteF('create msgport')
  20. CASE "SIG"
  21.    WriteF('alloc signal')
  22. CASE "FONT"
  23.    WriteF('open font')
  24. CASE "FPO"
  25.    WriteF('find port')
  26. CASE "EXE"
  27.    WriteF('systemtaglist')
  28. CASE "NIL"
  29.    WriteF('NILCHECK')
  30. CASE "IN"
  31.    WriteF('input didnt succeed')
  32. CASE "OUT"
  33.    WriteF('output didnt succeed')
  34. CASE "^C"
  35.    WriteF('ctrl c break')
  36. CASE "QUIT"
  37.    WriteF('program termination\n')
  38. ->eget stuff..
  39. CASE "GLE"
  40.    WriteF('GLE')
  41. DEFAULT
  42.    ->
  43. ENDSELECT
  44. IF exceptioninfo
  45.    WriteF(' exceptioninfo # : \d\n', exceptioninfo)
  46.    IF StrLen(exceptioninfo) > 3
  47.       WriteF(' exceptioninfo str : \s[20]\n', exceptioninfo)
  48.    ENDIF
  49. ENDIF
  50. ENDPROC
  51.  
  52.